Ucitati string. Formirati string koji se dobija citanjrm unazad.

Sub zad2()
Dim str As String, i As Long, n As Long, ob As String
str = InputBox("string")
n = Len(str)
For i = 1 To n
ob = Mid(str, i, 1) + ob
Next
MsgBox (ob)
End Sub

